pck_template
Lines of Code: 498	

procedure GetParsedTemplate2RS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
pi_vPatientID       in varchar2,
pi_vEncounterID     in varchar2,
pi_nTemplateID      in number,
pi_vKey             in varchar2,
po_nStatusCode      out number,
po_vStatusComment   out varchar2,
rs                  out RetRefCursor)

	get parsed template recordset 

procedure GetTemplateDataTagRS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2,
rs                  out RetRefCursor)

	Get template data tag recordset 

procedure GetTemplateDataTagGroupRS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2,
rs                  out RetRefCursor)

	Get template data tag group recordset 

procedure GetTemplateTypeRS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2,
rs                  out RetRefCursor)

	Get template type recordset 

procedure GetTemplateRS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2,
rs                  out RetRefCursor)

	Get template recordset 

procedure GetTemplateRS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
pi_nTypeID          in number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2,
rs                  out RetRefCursor)

	Get the templates of TypeID = {1 = Subjective, 2 = Objective, 3 = Assessment/Plan, 4 = Outcomes} 

procedure UpdateTemplate(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
pi_nTemplateID      in number,
pi_nGroupID         in number,
pi_vTemplateName    in varchar2,
pi_vTemplateText    in clob,
po_nStatusCode      out number,
po_vStatusComment   out varchar2)

	Update a template 

procedure InsertTemplate(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
pi_nSOAPsectID      in number,
pi_vTemplateName    in varchar2,
pi_vTemplateText    in clob,
pi_nTempGroupID     in number,
po_nTemplateID      out number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2)

	Insert a template 

procedure DiscontinueTemplate(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
pi_nTemplateID      in number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2)

	Discontinue a template 

procedure InsertTemplateGroup(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,

pi_vTemplateGrpName in varchar2,
pi_vComments        in varchar2,

po_nTemplateGrpID out number,
po_nStatusCode    out number,
po_vStatusComment out varchar2)

	Insert Template Group 

procedure UpdateTemplateGroup(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,

pi_nTemplateGrpID   in number,
pi_vTemplateGrpName in varchar2,
pi_vComments        in varchar2,

po_nStatusCode    out number,
po_vStatusComment out varchar2)

	Update Template Group 

procedure DiscontinueTemplateGroup(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,

pi_nTemplateGrpID in number,

po_nStatusCode    out number,
po_vStatusComment out varchar2)

	Discontinue Template Group 

procedure GetTemplateGroupsRS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,
po_nStatusCode      out number,
po_vStatusComment   out varchar2,
rs                  out RetRefCursor) is
begin
po_nStatusCode    := 0; 0 = success
po_vStatusComment := '';

open recordset
open rs for
'select  from tbicds.template_group t where t.active = 1';

exception
when others then
po_nStatusCode    := 1;
po_vStatusComment := 'PCK_TEMPLATE.GetTemplateGroupsRS(): ' || sqlErrm;
end;

	Get Template Groups recordset 

procedure GetGroupTemplatesRS(pi_vSessionID       in varchar2,
pi_vSessionClientIP in varchar2,
pi_nUserID          in number,

pi_nGroupID in number,

po_nStatusCode    out number,
po_vStatusComment out varchar2,
rs                out RetRefCursor)

	Get Group Templates 

function fnGetParsedTemplateText(pi_vPatientID    in varchar2,
pi_vKey          in varchar2,
pi_vTemplateText in varchar2) return clob

	Get parsed template text 

function fnReplaceClob (pi_source in clob
,pi_search in varchar2
,pi_replace in clob) return clob

	replace pieces in a  clob 

	

